home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 129 / 129.d81 / b.star race (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  35 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,.:poke53280,.:print"[147]"
  3. 20 sys57812"sr.font",dv,0:poke780,.:poke781,.:poke782,240:sys65493
  4. 25 gosub100
  5. 30 sys57812"sr.sprites",dv,0:poke780,0:poke781,0:poke782,224:sys65493
  6. 40 poke648,4:print"[158]load"chr$(34)"sr"chr$(34)","dv
  7. 50 print:print:print:print:print"run"
  8. 60 poke631,19:poke632,13:poke633,13:poke198,3:end
  9. 100 poke53265,peek(53265)or64
  10. 110 poke53282,3:poke53283,1:poke53284,10
  11. 120 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)
  12. 130 poke53272,29:poke648,196
  13. 140 poke53281,.:poke53280,15:print"[147]";
  14. 200 fori=.to11:print"[158][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][129][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192]":next
  15. 210 fori=.to11:print"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][148][192]":next
  16. 220 poke214,5:print
  17. 230 print"                                    "
  18. 235 fori=.to4:print"                                    [149][192]":next
  19. 240 fori=.to5:print"                                    [146][192]":next
  20. 250 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  21. 300 poke214,6:print
  22. 310 fori=.to7:reada$:printtab(20-len(a$)/2)""a$:next
  23. 320 poke214,23:print
  24. 330 printtab(13)"l o a d i n g"
  25. 340 return
  26. 10000 dv=peek(186):open15,dv,15,"s0:b.star race":close15:save"b.star race",dv:end
  27. 10008 data"[156]s  t  a  r   r  a  c  e"
  28. 10010 data"by anthony rose"
  29. 10020 data";1995 softdisk publishing."
  30. 10030 data" this program is the copyrighted"
  31. 10040 data"work of softdisk publishing."
  32. 10050 data"it is not shareware or in the"
  33. 10060 data"public domain."
  34. 10070 data" to subscribe call 1-800-594-3370."
  35.